﻿Imports System.Data.OleDb

Public Class frmInfoRankingAtencion

    Private Sub btCancelar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btCancelar.Click
        cadenaConexBD.Close()
        Close()
    End Sub

    Private Sub frmInfoRanking_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        CargarEmpresas(cbo_empresa)
        dtpInicio.Value = Today
        dtpfin.Value = Today
    End Sub

    Private Sub dtpfin_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpfin.ValueChanged
        If dtpfin.Value > Today Then
            MsgBox("La fecha final del informe no puede ser mayor al día Actual")
            dtpfin.Value = Today
        ElseIf dtpfin.Value < dtpInicio.Value Then
            MsgBox("La fecha final del informe no puede ser mayor a la de inicio")
            dtpfin.Value = Today
        End If
    End Sub

    Private Sub dtpInicio_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dtpInicio.ValueChanged
        If dtpInicio.Value > dtpfin.Value Then
            MsgBox("La fecha de inicio del informe no puede ser mayor a la Fecha de final")
            dtpInicio.Value = dtpfin.Value
        End If
    End Sub

    Private Sub btMostrar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btMostrar.Click

        Dim informeRanking As New C_querys
        Dim insertoTemporalRanking As New C_querys
        Dim drConsultados As OleDbDataReader
        Dim nomape_auditado As String = ""
        Dim promedio_auditado As Double



        If (cbo_empresa.Text = "Seleccionar...") Then
            MsgBox("Seleccione una Empresa para el informe")
        Else
            'aca los datos para la tabla temporal
            drConsultados = informeRanking.QxAsesorRanking
            If drConsultados.HasRows Then
                While drConsultados.Read
                    If Not drConsultados.IsDBNull(0) Then
                        nomape_auditado = drConsultados.GetString(0)
                    End If
                    If Not drConsultados.IsDBNull(1) Then
                        promedio_auditado = drConsultados.GetDouble(1)
                    End If
                    
                    insertoTemporalRanking.insertarTemporalRanking(nomape_auditado, promedio_auditado)
                End While
                drConsultados.Close()
                cadenaConexBD.Close()
                frmReporteRanking.ShowDialog()
            Else
                MsgBox("No hay resultados para los parámetros especificados, intentelo nuevamente.", MsgBoxStyle.Information, "Reporte")
                drConsultados.Close()
                cadenaConexBD.Close()
            End If
        End If
    End Sub

End Class